home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / CDTools / MUIRexx / demos / MUIRexxBuild / drop_object.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-19  |  1KB  |  44 lines
  1. /* */
  2. options results
  3. parse arg obj
  4.  
  5. /* Attribute TAG ID definitions */
  6.  
  7. List_DropMark =                   0x8042aba6 /* V11 ..g LONG              */
  8.  
  9. address BUILD
  10.  
  11. list ID DLST ATTRS List_DropMark
  12. dpos = result
  13. if dpos > 0 then do
  14.     list ID DLST POS dpos-1
  15.     temp = result
  16.     prev = strip(temp)
  17.     nspc = index(temp,prev)-1
  18.     select
  19.         when index(prev,'end') > 0 then nop
  20.         when index(prev,'window') > 0 then nspc = nspc + 1
  21.         when index(prev,'group') > 0 then nspc = nspc + 1
  22.         when index(prev,'menu') > 0 then nspc = nspc + 1
  23.         when index(prev,'do') > 0 then nspc = nspc + 1
  24.         otherwise nop
  25.     end
  26.     if nspc < 0 then nspc = 0
  27. end
  28. else nspc = 0
  29.  
  30. list ID DLST INSERT POS dpos STRING '='||insert(obj,'',nspc)
  31. select
  32.     when obj = 'window' then
  33.         list ID DLST INSERT POS dpos+1 STRING '='||insert('end'obj,'',nspc)
  34.     when obj = 'group' then
  35.         list ID DLST INSERT POS dpos+1 STRING '='||insert('end'obj,'',nspc)
  36.     when obj = 'menu' then
  37.         list ID DLST INSERT POS dpos+1 STRING '='||insert('end'obj,'',nspc)
  38.     when obj = 'do' then
  39.         list ID DLST INSERT POS dpos+1 STRING '='||insert('end','',nspc)
  40.     otherwise nop
  41. end
  42.  
  43. exit
  44.